Top 10k strings from Premier League (1985)(E&J Software)[a].z80
in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /
Back to the directory listing
10 COUNT=COUNT+ 5 "5")=E(TEAM, 5 "25";E(TEAM, 4 D$(PLAYER, 4 "5")+B(TEAM,N, 3 S(TEAM,COUNT)=V 3 "7")=E(T(N), 3 "3")=E(TEAM, 3 "1")=E(TEAM, 2 TEAM=TEAM+ 2 POST=POST+ 2 POINTS=A(F, 2 MONEY=MONEY+TEST: 2 LOAN=LOAN+ 2 CTTEAM=CTTEAM+ 2 C$(TEAM,PLAYER)="M" 2 C$(TEAM,PLAYER)="A" 2 BGOAL=BGOAL+B(TEAM,N, 2 B(T(F),PLAYER, 2 -SKILL)*50000 2 "8")=E(T(F), 2 "7")=E(TEAM, 2 "7")=E(T(N+ 2 "7")=A(T(F+ 2 "7")=A(T(F), 2 "5";"Enter new name": 2 "5";"3) Return to main menu": 2 "5")-A(TEAM, 2 "3")=B(T(F),PLAYER, 2 "3")+B(TEAM,N, 2 "2")=E(TEAM, 2 "2")+B(TEAM,N, 2 "1";"YOU HAVE BEEN SACKED": 2 "1";"WEEKLY BAL. `:";BAL 2 "1",X)=" " 2 "1")=DICE: 2 "1")+B(TEAM,N, 1 z,M;A$(A);" ";G$: 1 Z$=C$(TEAM,PLAYER) 1 You owe the Bank `";LOAN: 1 Y$="WIMBLEDON": 1 WIMBLEDONJ 1 WG=ABILITY* 1 WEEK=WEEK+ 1 TEST>GDICE 1 TEST=TEST+ 1 TEAM=BTEAM 1 T(N)=O(N): 1 T(F)=TEAM) 1 SQUAD=SQUAD+ 1 SHILTON ANDERSON PEARCE MABBUTT BUTCHER ADAMS STEVENS ROBSON HODDLE HODGE WADDLE BARNES LINEKER BEARDSLEYCOTTEE 1 SEASON=SEASON+ 1 S(TEAM,N)= 1 POINTS=A(TEAM, 1 POINTS < A(F, 1 PLAYER=PLAYER+ 1 P P P P P P P P P P P 1 O(N)=T(N+1 1 N=S(TEAM,N) 1 MONEY=MONEY-Z: 1 MONEY=MONEY-P: 1 MONEY=MONEY+Z: 1 MONEY=MONEY+TEST 1 MONEY=MONEY+FEE: 1 MONEY=MONEY+ 1 MONEY+TEST< 1 MIDDLESBRO'L 1 MCOUNT>STYLE 1 MCOUNT=MCOUNT+ 1 LOAN=LOAN-Z: 1 LOAN=LOAN+Z: 1 L$="CHELSEA" 1 J$="MIDDLESBRO'": 1 GOOD=GOOD- 1 GOOD=GOOD+ 1 GAMES=GAMES+ 1 FORM=FORM+B(A,N, 1 FEE=(B(TEAM,PLAYER, 1 Enter squad No. or (M) for menu 1 E(BTEAM,G)=E( 1 DICE=DICE+SKILL: 1 CTTEAM=CTTEAM- 1 CHAMP=CHAMP+ 1 C$(TEAM,V)="M" 1 C$(TEAM,V)="D" 1 C$(TEAM,V)="A" 1 C$(TEAM,S)=Z$ 1 C$(TEAM,PLAYER)=" ": 1 C$(TEAM,PLAYER)=" " 1 C$(TEAM,N)=C$( 1 C$(TEAM,N)="M" 1 C$(TEAM,N)="D" 1 C$(TEAM,N)="A" 1 C$(TEAM,N)=" " 1 BTEAM=TEAM 1 BGOAL>(AGOAL* 1 BAL=BAL-TEST: 1 B(TEAM,PLAYER,N)= 1 B(TEAM,N,F)=B( 1 B(B,N,F)=B( 1 AGOAL>(BGOAL* 1 AGOAL=AGOAL+B( 1 ABILITY=ABILITY+B(A,N, 1 ABILITY=ABILITY+B( 1 A(B,N)=T(N): 1 ;"Player to replace or R to return" 1 ;"INJURY TIME": 1 ;" Enter(D)rop or (P)ick a player " 1 ;" Enter squad No. to play 1 ;" Enter squad No. to drop 1 ;" PLAYER TYPE A F G No." 1 );" in league": 1 (TEST+MONEY) 1 (((E(T(N), 1 $(F,N)="D": 1 "TOTTENHAM","A. VILLA","LUTON","Q.P.R.","MILLWALL","SHEFF WED","SOUTH'TON","DERBY","NORWICH","LIVERPOOL","ARSENAL","WEST HAM","EVERTON","COVENTRY","MAN. UTD" 1 "SHILTON","ANDERSON","PEARCE","MABBUTT","BUTCHER","ADAMS","STEVENS","ROBSON","HODDLE","HODGE","WADDLE","BARNES","LINEKER","BEARDSLEY","COTTEE" 1 "ENTER AMOUNT TO PAY `"; 1 "ENTER AMOUNT REQUIRED `"; 1 "9")>E(T(N+ 1 "9")>E(T(N), 1 "9");" SEASON ";SEASON 1 "82500"+(( 1 "8";A$(BB);" SHOOT": 1 "8";A$(AA);" SHOOT": 1 "8")>E(T(N+ 1 "8")=E(T(N+ 1 "8")=COUNT: 1 "8");A$(n): 1 "8");" ": 1 "75000")+(B(TEAM,PLAYER, 1 "75000")+(B( 1 "7";"ENTER MANAGER'S NAME": 1 "7";"ATTENDANCE :";TEST 1 "7";"(";E(T( 1 "7";" MAX 12 LETTERS": 1 "7");"Manager ";X$ 1 "6";AGOAL: 1 "6")=A(T(F+ 1 "6")=A(T(F), 1 "6")<(A(F, 1 "6")+E(T(F+ 1 "6")+E(T(F), 1 "6"))=(A(F, 1 "5000"*(Z= 1 "5";"NO MORE PLAYERS ON OFFER": 1 "5";"NO MORE DEALS THIS WEEK": 1 "5";"E & J PREMIER DIVISION" 1 "5";"CHAMPIONSHIP WINS - ";CHAMP 1 "5";"4) Return to main menu": 1 "5";"3) Save game ": 1 "5";"3) Return to main menu" 1 "5";"2) Sell a player": 1 "5";"2) Pay off loan": 1 "5";"2) League Table ": 1 "5";"2) Change team name": 1 "5";"1) Take out loan": 1 "5";"1) List fixtures": 1 "5";"1) Change player name": 1 "5";"1) Buy a player": 1 "5";" AVERAGE SESSION": 1 "5")>(E(T(N+ 1 "5")>(E(T(N), 1 "5")=A(T(F+ 1 "5")=A(T(F), 1 "5")+E(T(F+ 1 "5")+E(T(F), 1 "4000"*(Z= 1 "4";n;") "; 1 "4";C$(TEAM,PLAYER);" A-";B(TEAM,PLAYER, 1 "4";A$(TEAM);" ";"PLAYER No. ";PLAYER 1 "4";"WELL DONE ! YOU HAVE WON 1 "4";"PRESS ENTER TO CONTINUE": 1 "4";"Enter your offer" 1 "4";"ENTER Y OR N TO CONTINUE": 1 "4";"ENTER OPTION REQUIRED": 1 "4";"DO YOU ACCEPT THIS OFFER": 1 "4")=FORM: 1 "4")=A(T(F+ 1 "4")=A(T(F), 1 "3";B$(PLAYER): 1 "3";B$(P);" SHOWS GOOD FORM": 1 "3";B$(P);" INJURED": 1 "3";B$(P);" POOR SESSION 1 "3";B$(N);" ";C$( 1 "3";A$(TEAM);" OFFER `";FEE 1 "3";A$(B): 1 "3";A$(A);" ";ABILITY;" ";FORM: 1 "3";"SALARY OFFER - `";S 1 "3";"PRESS Y TO SEE SQUAD/LEAGUE": 1 "3";"OFFER YOU MANAGERS JOB": 1 "3";"NO MORE SELLING THIS WEEK": 1 "3";"HAS DEMANDED A TRANSFER": 1 "3";"Due to your lack of success": 1 "3";"Do you accept ?": 1 "3")=B(TEAM,PLAYER, 1 "3")=A(T(F+ 1 "3")=A(T(F), 1 "3");A$(N)(1 1 "3");" ";N: 1 "3")+(E(TEAM, 1 "3")+(E(F, 1 "29";C$(TEAM,N): 1 "27";B(TEAM,N, 1 "26";B(A,N, 1 "25";BGOAL 1 "24";;A(N, 1 "21";"(";E(T( 1 "20";A$(TEAM) 1 "20";"- Offer ";N: 1 "2"=WEEK-15 1 "2";B$(P);" IMPROVES ": 1 "2";;"WAGES/EXP. `:";TEST 1 "2";"INTEREST `:"; 1 "2";"AMOUNT OWED 1 "2";" You finished ";A(1 1 "2";" <6> FINANCIAL/SAVE GAME" 1 "2";" <5> TRANSFER MARKET" 1 "2";" <4> PLAY NEXT FIXTURE" 1 "2";" <3> PRINT SQUAD DETAILS" 1 "2";" <2> PRINT LEAGUE/FIXTURES" 1 "2";" <1> CHANGE PLAYER/TEAM NAME" 1 "2";" ";B$(N) 1 "2";" TEAM 1 "2",G)=PLAYER 1 "2")=DICE: 1 "2")=B(TEAM,PLAYER, 1 "2")=A(T(F+ 1 "2")=A(T(F), 1 "2");" ";B( 1 "2");" G-";B(TEAM,PLAYER, 1 "2")-(E(T(N+ 1 "2")-(E(T(N), 1 "19";A$(TEAM) 1 "18",RC;COUNT: 1 "17";A$(T( 1 "17",N,F)=B( 1 "17",N,F): 1 "17",G)=E(TEAM,G): 1 "1500"*(Z= 1 "15";" ";A$(T(D));" ";E(T(D), 1 "14";C$(A,N);" ";B(A,N, 1 "12";"`";TEST: 1 "12";"TIME :"; 1 "11";"THIS WEEK": 1 "11";" MORALE ": 1 "11";" MIDFIELD ": 1 "11";" GOALS ": 1 "11";" FORM ": 1 "11";" DEFENCE ": 1 "11";" ATTACK ": 1 "11")="A": 1 "10000")+(B(TEAM,PLAYER, 1 "10000"))+(B( 1 "10";B$(n) 1 "10");A$(n): 1 "1";D$(S(1 1 "1";B$(N): 1 "1";A$(T(D));" ";E(T(D), 1 "1";"YOU HAVE BEEN SACKED": 1 "1";"WEEK ";WEEK: 1 "1";"SUB: ";B$(SP) 1 "1";"SELECT OPTION AND PRESS ENTER": 1 "1";"SALARY - `";SAL 1 "1";"RECEIPTS `:";TEST: 1 "1";"PLEASE WAIT": 1 "1";"LEAGUE 1 "1";"Estimated value ";B(TEAM,PLAYER, 1 "1";"CURRENT BALANCE `";MONEY: 1 "1";" YOU DO NOT HAVE ENOUGH MONEY IN YOUR ACCOUNT - GET A LOAN ! ": 1 "1";" TRANSFER MARKET - BUY A PLAYER ";" Enter Team & Player number 1 "1";" SORRY THIS PLAYER UNAVAILABLE ": 1 "1";" Press (M) to return to menu ": 1 "1";" PRESS (M) TO RETURN TO MENU ": 1 "1";" PRESS (M) TO RETURN TO MENU " 1 "1";" PREMIER II " 1 "1";" PLAYER INJURED DURING MATCH ": 1 "1";" PLAYER INJURED - NOT AVAILABLE "; 1 "1";" OFFER NOT ACCEPTED ": 1 "1";" Enter team number of substitute": 1 "1";" ENTER (P)RINT OR (C)ONTINUE " 1 "1";" Team style 4-4-2 MORALE ";E(A, 1 "1";" Team style 4-3-3 MORALE ";E(A, 1 "1";" Team strengths:- 1 "1";" HOME TEAM 1 "1";" E N D O F S E A S O N ": 1 "1";" THIS PLAYER NOT AVAILABLE ": 1 "1",PLAYER)=" " 1 "1",N,F)=B(B,N,F): 1 "1",N)=C$(TEAM,PLAYER): 1 "1",N)=A(B,N): 1 "1",N)="M" 1 "1",N)="D" 1 "1",N)="A" 1 "1",N)=" " 1 "1",N);" ";B( 1 "1",G)=PLAYER 1 "1",B)=" ": 1 "1",B)=" " 1 "1",A)=" " 1 "1")=TEAM) 1 "1")=B(TEAM,PLAYER, 1 "1")=A(T(F+ 1 "1")=A(T(F), 1 "1")=A$(B): 1 "1");" ";B(A,N, 1 "1");" ";B( 1 "1");" F-";B(TEAM,PLAYER, 1 "1")+(E(TEAM, 1 "1")+(E(F, 1 "0";" SKILL ";SKILL;" MORALE ";E( 1 "0";" KICK OFF": 1 "0";" HALF TIME": 1 "0";" FULL TIME": 1 "0";" DO YOU HAVE A PRINTER CONNECTED ": 1 "0";" ";D$(N, 1 "0";" press R - return or S - save" 1 "0";" P R E M A T C H R E P O R T " 1 "0";" DO YOU WISH TO USE YOUR SUB ": 1 "0";" Number in team = ";CTTEAM;" ": 1 "0";" Number in team = ";CTTEAM;" " 1 "0";" ENTER SKILL LEVEL REQUIRED ": 1 "0";" YOUR SQUAD IS TOO SMALL ": 1 YOU HAVE A FULL SQUAD 1 TOTTENHAM A. VILLA LUTON 1 THE PREMIER CHAMPIONSHIP": 1 Slight knock": 1 SEASON TICKET SALES 1 Q.P.R. MILLWALL SHEFF WED SOUTH'TON DERBY 1 PLAYER TRANSFERRED 1 PLAYER SOLD 1 P W D L F A PTS" 1 OTHER RESULTS 1 NORWICH LIVERPOOL ARSENAL WEST HAM EVERTON COVENTRY MAN. UTD 1 NO PROBLEMS" 1 HOME TEAM 1 HALF TIME SCORES 1 FROM 1 TO 7 1 FINAL TEAM 1 E & J PREMIER DIVISION ": 1 FINAL OFFER DO YOU ACCEPT ?